home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 01 - 1984 & 1985 / 01.08 Jul 85.sit / 01.08 Jul 85 / Pascal Vol. 1 #8 / Classy_Input.r < prev    next >
MacBinary  |  1985-05-14  |  2.6 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue May 14 14:34:55 1985, modified Tue May 14 14:34:55 1985, creator Macintosh Edit, type ASCII, 1959 bytes "Classy_Input.r" , at 0x827 490 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 43 6c 61 73 73 79 | 5f 49 6e 70 75 74 2e 72 |..Classy|_Input.r|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 07 a7 00 | 00 01 ea 99 0d 57 cf 99 |........|.....W..|
|00000060| 0d 57 cf 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.W......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 30 f6 00 00 |........|....0...|
|00000080| 3b 3b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;;******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 3b 3b 2a 2a 20 |********|**.;;** |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 20 2a 2a 0d 3b 3b | 2a 2a 20 52 65 73 6f 75 |   **.;;|** Resou|
|000000e0| 72 63 65 20 64 61 74 61 | 20 66 6f 72 20 43 6c 61 |rce data| for Cla|
|000000f0| 73 73 79 5f 49 6e 70 75 | 74 20 20 20 20 20 2a 2a |ssy_Inpu|t     **|
|00000100| 0d 3b 3b 2a 2a 20 20 20 | 20 20 20 20 20 20 20 20 |.;;**   |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 2a 2a 0d 3b 3b 2a 2a |        | **.;;**|
|00000130| 20 50 72 6f 63 65 73 73 | 20 74 68 69 73 20 54 45 | Process| this TE|
|00000140| 58 54 20 66 69 6c 65 20 | 74 68 72 6f 75 67 68 20 |XT file |through |
|00000150| 20 20 20 20 2a 2a 0d 3b | 3b 2a 2a 20 52 4d 61 6b |    **.;|;** RMak|
|00000160| 65 72 3a 74 68 65 20 52 | 65 73 6f 75 72 63 65 20 |er:the R|esource |
|00000170| 43 6f 6d 70 69 6c 65 72 | 20 20 20 20 20 20 20 2a |Compiler|       *|
|00000180| 2a 0d 3b 3b 2a 2a 20 20 | 20 20 20 62 79 20 41 6e |*.;;**  |   by An|
|00000190| 64 79 20 48 65 72 74 7a | 66 65 6c 64 2e 20 20 20 |dy Hertz|feld.   |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 2a 2a 0d 3b 3b 2a |        |  **.;;*|
|000001b0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |*       |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 20 20 20 20 20 2a 2a 0d | 3b 3b 2a 2a 2a 2a 2a 2a |     **.|;;******|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 0d 3b 3b 20 64 6f | 75 62 6c 65 20 73 65 6d |**.;; do|uble sem|
|00000210| 69 63 6f 6c 6f 6e 73 20 | 73 74 61 72 74 20 63 6f |icolons |start co|
|00000220| 6d 6d 65 6e 74 73 0d 3b | 3b 0d 4d 61 63 54 75 74 |mments.;|;.MacTut|
|00000230| 6f 72 5f 64 69 73 6b 3a | 43 6c 61 73 73 79 5f 49 |or_disk:|Classy_I|
|00000240| 6e 70 75 74 2e 72 73 72 | 63 3b 3b 0d 3f 3f 3f 3f |nput.rsr|c;;.????|
|00000250| 3f 3f 3f 3f 09 20 20 20 | 20 20 20 20 20 20 20 20 |????.   |        |
|00000260| 20 20 20 20 0d 3b 3b 20 | 64 65 73 74 69 6e 61 74 |    .;; |destinat|
|00000270| 69 6f 6e 20 76 6f 6c 75 | 6d 65 3a 66 69 6c 65 6e |ion volu|me:filen|
|00000280| 61 6d 65 20 0d 3b 3b 20 | 74 79 70 65 20 61 6e 64 |ame .;; |type and|
|00000290| 20 63 72 65 61 74 6f 72 | 20 6f 66 20 66 69 6c 65 | creator| of file|
|000002a0| 20 3d 20 3f 3f 3f 3f 20 | 3f 3f 3f 3f 0d 0d 3b 3b | = ???? |????..;;|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 3b 3b 2a 2a 20 20 54 |********|.;;**  T|
|000002e0| 68 65 20 66 69 72 73 74 | 20 72 65 73 6f 75 72 63 |he first| resourc|
|000002f0| 65 20 69 73 20 74 68 65 | 20 20 20 20 20 20 20 20 |e is the|        |
|00000300| 20 2a 2a 0d 3b 3b 2a 2a | 20 20 64 65 66 69 6e 69 | **.;;**|  defini|
|00000310| 74 69 6f 6e 20 6f 66 20 | 61 20 44 69 61 6c 6f 67 |tion of |a Dialog|
|00000320| 20 4d 61 6e 61 67 65 72 | 20 20 20 20 2a 2a 0d 3b | Manager|    **.;|
|00000330| 3b 2a 2a 20 20 77 69 6e | 64 6f 77 2e 20 20 20 20 |;**  win|dow.    |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000350| 20 20 20 20 20 20 20 2a | 2a 0d 3b 3b 2a 2a 2a 2a |       *|*.;;****|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 0d 3b 3b 20 | 20 67 6c 6f 62 61 6c 20 |****.;; | global |
|00000390| 63 6f 6f 72 64 69 6e 61 | 74 65 73 20 21 21 0d 0d |coordina|tes !!..|
|000003a0| 74 79 70 65 20 44 4c 4f | 47 0d 62 6f 78 2c 31 32 |type DLO|G.box,12|
|000003b0| 33 34 35 0d 3b 3b 6e 6f | 74 69 74 6c 65 0d 39 36 |345.;;no|title.96|
|000003c0| 20 31 32 38 20 31 34 38 | 20 33 38 34 20 3b 3b 20 | 128 148| 384 ;; |
|000003d0| 74 6f 70 20 6c 65 66 74 | 20 62 6f 74 74 6f 6d 20 |top left| bottom |
|000003e0| 72 69 67 68 74 20 0d 76 | 69 73 69 62 6c 65 20 67 |right .v|isible g|
|000003f0| 6f 61 77 61 79 0d 31 20 | 20 20 20 20 20 20 20 20 |oaway.1 |        |
|00000400| 20 20 20 20 20 3b 3b 20 | 77 69 6e 64 6f 77 20 74 |     ;; |window t|
|00000410| 79 70 65 20 3d 20 64 42 | 6f 78 50 72 6f 63 20 0d |ype = dB|oxProc .|
|00000420| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |0       |       ;|
|00000430| 3b 20 72 65 66 63 6f 6e | 0d 31 32 33 34 35 20 20 |; refcon|.12345  |
|00000440| 20 20 20 20 20 20 20 20 | 3b 3b 20 49 44 20 6f 66 |        |;; ID of|
|00000450| 20 44 49 54 4c 20 61 73 | 73 6f 63 69 61 74 65 64 | DITL as|sociated|
|00000460| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000470| 3b 3b 20 77 69 74 68 20 | 74 68 69 73 20 44 4c 4f |;; with |this DLO|
|00000480| 47 0d 0d 3b 3b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |G..;;***|********|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 3b |********|*****.;;|
|000004b0| 2a 2a 20 20 4e 65 78 74 | 20 69 73 20 61 20 6c 69 |**  Next| is a li|
|000004c0| 73 74 20 6f 66 20 27 69 | 74 65 6d 73 27 20 74 6f |st of 'i|tems' to|
|000004d0| 20 67 6f 20 20 20 2a 2a | 0d 3b 3b 2a 2a 20 20 69 | go   **|.;;**  i|
|000004e0| 6e 20 74 68 65 20 77 69 | 6e 64 6f 77 2e 20 20 20 |n the wi|ndow.   |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 2a 2a 0d 3b 3b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | **.;;**|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|00000530| 74 79 70 65 20 44 49 54 | 4c 20 20 20 20 20 20 20 |type DIT|L       |
|00000540| 3b 3b 20 73 65 65 20 44 | 69 61 6c 6f 67 20 4d 61 |;; see D|ialog Ma|
|00000550| 6e 61 67 65 72 0d 69 74 | 65 6d 73 2c 31 32 33 34 |nager.it|ems,1234|
|00000560| 35 0d 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5.4     |        |
|00000570| 20 20 3b 3b 20 66 6f 75 | 72 20 69 74 65 6d 73 20 |  ;; fou|r items |
|00000580| 0d 0d 42 75 74 74 6f 6e | 0d 34 20 31 32 30 20 32 |..Button|.4 120 2|
|00000590| 34 20 31 38 30 20 20 20 | 20 3b 3b 20 20 6c 6f 63 |4 180   | ;;  loc|
|000005a0| 61 6c 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 20 21 |al coord|inates !|
|000005b0| 21 0d 4f 4b 3b 3b 0d 0d | 42 75 74 74 6f 6e 0d 34 |!.OK;;..|Button.4|
|000005c0| 20 31 38 38 20 32 34 20 | 32 34 38 0d 43 61 6e 63 | 188 24 |248.Canc|
|000005d0| 65 6c 3b 3b 0d 0d 45 64 | 69 74 54 65 78 74 20 44 |el;;..Ed|itText D|
|000005e0| 69 73 61 62 6c 65 64 20 | 20 0d 33 32 20 38 20 34 |isabled | .32 8 4|
|000005f0| 38 20 32 34 38 20 20 20 | 20 20 20 20 20 0d 3b 3b |8 248   |     .;;|
|00000600| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000610| 74 65 78 74 20 61 64 64 | 65 64 20 6c 61 74 65 72 |text add|ed later|
|00000620| 20 0d 0d 53 74 61 74 69 | 63 54 65 78 74 20 44 69 | ..Stati|cText Di|
|00000630| 73 61 62 6c 65 64 20 20 | 0d 34 20 38 20 32 30 20 |sabled  |.4 8 20 |
|00000640| 31 32 30 20 20 20 20 20 | 20 20 20 20 20 20 0d 54 |120     |      .T|
|00000650| 79 70 65 20 61 20 53 74 | 72 69 6e 67 3b 3b 20 70 |ype a St|ring;; p|
|00000660| 72 6f 6d 70 74 20 74 65 | 78 74 2c 20 6d 6f 64 69 |rompt te|xt, modi|
|00000670| 66 69 65 64 20 6c 61 74 | 65 72 0d 0d 3b 3b 20 64 |fied lat|er..;; d|
|00000680| 69 73 61 62 6c 65 64 20 | 6d 65 61 6e 73 20 74 68 |isabled |means th|
|00000690| 61 74 20 74 68 65 20 44 | 69 61 6c 6f 67 20 4d 61 |at the D|ialog Ma|
|000006a0| 6e 61 67 65 72 0d 3b 3b | 20 77 69 6c 6c 20 6e 6f |nager.;;| will no|
|000006b0| 74 20 72 65 70 6f 72 74 | 20 65 76 65 6e 74 73 20 |t report| events |
|000006c0| 69 6e 20 74 68 69 73 20 | 63 6f 6e 74 72 6f 6c 0d |in this |control.|
|000006d0| 3b 3b 0d 3b 3b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;;.;;***|********|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 3b |********|*****.;;|
|00000700| 2a 2a 20 41 6e 64 20 66 | 69 6e 61 6c 6c 79 2c 20 |** And f|inally, |
|00000710| 74 68 65 20 70 72 6f 6d | 70 74 20 75 73 65 64 20 |the prom|pt used |
|00000720| 62 79 20 20 20 20 2a 2a | 0d 3b 3b 2a 2a 20 50 72 |by    **|.;;** Pr|
|00000730| 6f 6d 70 74 5f 46 6f 72 | 5f 4e 75 6d 62 65 72 20 |ompt_For|_Number |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000750| 20 2a 2a 0d 3b 3b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | **.;;**|********|
|00000760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|00000780| 74 79 70 65 20 53 54 52 | 20 0d 70 72 6f 6d 70 74 |type STR| .prompt|
|00000790| 2c 31 32 33 34 35 0d 54 | 79 70 65 20 61 20 6e 75 |,12345.T|ype a nu|
|000007a0| 6d 62 65 72 0d 0d 3b 3b | 2a 2a 2a 2a 2a 2a 2a 2a |mber..;;|********|
|000007b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007d0| 0d 3b 3b 2a 2a 20 20 65 | 6e 64 20 6f 66 20 66 69 |.;;**  e|nd of fi|
|000007e0| 6c 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |le      |        |
|000007f0| 20 20 20 20 20 20 20 20 | 20 2a 2a 0d 3b 3b 2a 2a |        | **.;;**|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 0d 00 | 00 00 00 00 00 00 00 00 |******..|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00000890| 69 6c 65 29 20 74 68 65 | 6e 0d 20 20 20 77 68 69 |ile) the|n.   whi|
|000008a0| 6c 65 20 6e 6f 74 20 65 | 6f 66 28 43 66 69 6c 65 |le not e|of(Cfile|
|000008b0| 0e 43 6c 61 73 73 79 5f | 49 6e 70 75 74 2e 72 6e |.Classy_|Input.rn|
|000008c0| 02 00 00 00 54 45 58 54 | 45 44 49 54 01 00 ff ff |....TEXT|EDIT....|
|000008d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff 00 4b |..TEXTED|IT.....K|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 98 db f7 32 00 00 | 07 a7 00 00 01 ea 6c 73 |.....2..|......ls|
|00000900| 65 0d 20 20 20 72 65 61 | 64 28 50 66 69 6c 65 2c |e.   rea|d(Pfile,|
|00000910| 20 62 75 66 66 5b 31 5d | 29 3b 0d 7b 20 73 65 65 | buff[1]|);.{ see|
|00000920| 6b 28 43 66 69 6c 65 2c | 20 66 69 6c 65 70 6f 73 |k(Cfile,| filepos|
|00000930| 28 50 66 69 6c 65 29 20 | 2a 20 35 31 32 29 3b 20 |(Pfile) |* 512); |
|00000940| 20 73 65 74 20 43 20 74 | 6f 20 73 61 6d 65 20 70 | set C t|o same p|
|00000950| 6f 73 69 74 69 6f 6e 20 | 61 73 20 50 20 7d 0d 20 |osition |as P }. |
|00000960| 65 6e 64 3b 0d 0d 7b 20 | 24 41 38 44 30 20 69 73 |end;..{ |$A8D0 is|
|00000970| 20 55 6e 50 61 63 6b 42 | 69 74 73 2c 20 73 65 65 | UnPackB|its, see|
|00000980| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 10 00 00 |.......M|onaco...|
|00000990| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000009a0| 00 16 00 00 00 d4 00 01 | 5c ee 00 d4 00 00 00 1c |........|\.......|
|000009b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000009c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 5c da |........|......\.|
|000009d0| 03 ec 00 47 00 00 00 0e | 00 01 5c e2 46 4f 42 4a |...G....|..\.FOBJ|
|000009e0| 00 fe 06 ec 00 00 25 8c | 00 00 25 78 00 00 25 a6 |......%.|..%x..%.|
|000009f0| 00 00 25 be 00 00 25 94 | 00 00 25 9a 00 00 25 b2 |..%...%.|..%...%.|
|00000a00| 00 00 25 b8 00 40 12 a0 | 00 00 25 a0 00 40 01 94 |..%..@..|..%..@..|
|00000a10| 00 40 01 94 00 40 01 94 | 00 40 01 94 00 40 01 94 |.@...@..|.@...@..|
|00000a20| 00 40 01 46 4f 42 4a 00 | fe 06 ec 00 00 25 8c 00 |.@.FOBJ.|.....%..|
|00000a30| 00 25 78 00 00 25 a6 00 | 00 25 be 00 00 25 94 00 |.%x..%..|.%...%..|
|00000a40| 00 25 9a 00 00 25 b2 00 | 00 25 b8 00 40 12 a0 00 |.%...%..|.%..@...|
|00000a50| 00 25 a0 00 40 01 94 00 | 40 01 94 00 40 01 94 00 |.%..@...|@...@...|
|00000a60| 40 01 94 00 40 01 94 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+